﻿Imports System.Data.OleDb
Public Class opps
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Params("id") = Nothing Then
            Label1.Text = "There was an error but we are not sure why! Sorry about that."
        Else
            Dim i As Integer = Request.Params("id")
            Select Case i
                Case 1
                    Label1.Text = "You need to be logged in to tag cakes"
                Case 2
                    Label1.Text = "You need to be logged in to Comment on Cakes"
                Case 3
                    Label1.Text = "You seem to have not selected a cake a big mistake"
                Case 4
                    Label1.Text = "You need to log in to Add Cakes"
                Case 5
                    Label1.Text = "You need to be logged in to Comment on Tips"
                Case 6
                    Label1.Text = "You a commenting on a Tip without the Tip"
                Case 7
                    Label1.Text = "You need to be Silver or Higher to Comment on Tips"
                Case 8
                    Label1.Text = "You need to log in to Add a Tip"
                Case 9
                    Label1.Text = "You need to be Silver or Higher to Post Tips"
                Case 10
                    Label1.Text = "You need to log in to add a blog post"
                Case 11
                    Label1.Text = "You need to have GOLD acccess to post Blogs"
                Case 12
                    Label1.Text = "You need to log in to access your Profile"
                Case 13
                    Label1.Text = "No such cake."
            End Select

        End If
    End Sub


End Class